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-- StreamsA.Mesa Edited by Sandman on May 19, 1978 8:25 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [ 

CharsPerPage, CharsPerWord, PageCount, PageNumber, PageSizo], 
AUoFileDefs: FROM "altof il edef s" USING [eofDA, FA, fininDA, FP, vDA], 
BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextDA, WritoPages], 
DiskDefs: FROM "diskdefs" USING [DiskRequest] , 
imineDefs: FROM "inlinedefs" USING [BITAND, BITSHIFT, COPY], 
MiscDefs: FROM "miscdefs" USING [Zero], 
SegmentDefs: FROM "segmentdef s" USING [UpdateFileLength] , 
StreamDefs: FROM "streamdefs" USING [ 

DiskHandle, StreamErrorCode, StreamHandle], 
SysteniDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode]; 

DEFINITIONS FROM AltoDefs. AUoFileDefs, StreamDefs; 

StreamsA: PROGRAM 

IMPORTS BFSDefs, MiscDefs, SegmentDefs, SystemDefs 
EXPORTS StreamDefs SHARES StreamDefs, SegmentDefs » BEGIN 

StreamError: PUBLIC SIGNAL [streamtStreamHandle, error:StreamErrorCode] ■ CODE; 

-- block mode transfers 

direction: TYPE » {in, out}; 

-- the fast stream overflow handler; should only be called 
-- from the fast stream get, put, and endof routines. It 
-- always supplies a new count (which may be zero, in which 
-- case get and/or put is replaced with an error routine). 

-- Cleanup makes the disk look like the stream, unless the 
-- current page is not full and you didn't ask for a flush. 

Fixup: PROCEDURE [stream:StreamHandle] • 
BEGIN pos: CARDINAL; 
WITH s: stream SELECT FROM 
Disk -> 
BEGIN 

Cleanup[@s, FALSE]; -- don't flush 
IF (pos ♦- Pos[@s]) >- s.char THEN 
BEGIN 

SetEnd[@s,TRUE]; -- ran into eof 
Setup[@s, pos, Chars Per Page]; 
END; 
END; 
ENDCASE ■> SIGNAL StreamError[@s .StreamType] ; 
RETURN 
END; 

Cleanup: PROCEDURE [s :DiskHandle, f lush:BOOLEAN] » 
BEGIN pos: CARDINAL; 

IF (pos <r- Pps[s]) > s.char THEN PositionByte[s , pos , FALSE]; 
IF pos^CharsPerPage THEN 

-- write current page, read (maybe create) next one 

IF s. dirty THEN [] ^ TransferPages[s , NIL. 1 .out .FALSE] 

-- donothing with current page, read next one 

ELSE [] ^ TransferPages[s,NIL,l,in,TRUE] 
ELSE IF s. dirty AND flush THEN 

BEGItl 

-- write current page w/ new numChars 

[] <r TransferPag0s[s, NIL, 0. out, TRUE]; 

Pos itionByte[s, pos, FALSE]; 

END; 
RETURN 
END; 

ReadBlock: PUBLIC PROCEDURE [ 

stream: StreamHandle, address: POINTER, words: CARDINAL] 

RETURNS [CARDINAL] « 

BEGIN 

done: CARDINAL ^ 0; 

WITH s: stream SELECT FROM 
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Disk ■> IF s.read THEN 

done ^ TransferBlock[@s, address, words, in]; 

ENDCASE «> SIGNAL StreamError[@s .StreamType]; 
RETURN[done] 
END; 

WriteBlock: PUBLIC PROCEDURE [ 

stream:StreamHand1e, address:POINTER, words tCARDINAL] 
RETURNS [CARDINAL] ■ 
BEGIN 

done: CARDINAL ^ 0; 
WITH srstream SELECT FROM 
Disk »> 

IF (-S. write AND ^s. append) 
OR (-s. write AND s. append AND -EndOf[0s]) 
OR (s. write AND ~s. append AND EndOf[@s]) 
THEN NULL 

ELSE done <- TransferB1ock[0s, address .words, out]; 
ENDCASE -> SIGNAL StreamError[0s,StreamType]; 
RETURN[done] 
END; 

TransferBlock: PROCEDURE [ 

s:DiskHandle, a:POINTER, n:CARDINAL, d:direction] 

RETURNS [CARDINAL] » 

BEGIN OPEN InlineDefs; 

np: PageCount; 

done: CARDINAL ♦- 0; 

left, pos, words: CARDINAL; 

IF BITAND[Pos[s],CharsPerWord-l]#0 

THEN ERROR StreamError[s , StreamPosi tion]; 
WHILE done j^ n DO 
left ♦- n-done; 
pos <- Pos[s]/CharsPerWord; 
words ♦- 
(IF d=out AND s. append THEN PageSize 

ELSE (s.char+CharsPerWord-l)/CharsPerWord) - pos; 
words «- IF left > words THEN words ELSE left; 
IF words ^ THEN 
BEGIN 

PositionByte[s,{pos+words)*CharsPerWord.d»in] ; 
SELECT d FROM 

in «> COPY[from:s. buffer. word+pos,to:a,nwords:words]; 
out »> 
BEGIN 

COPY[f rom:a, to:s.buf far .word+pos ,nwords: words]; 
s. dirty <- TRUE; 
END; 
ENDCASE; 
END; 
IF s.char ff CharsPerPage 
AND s.endof[s] AND (d«in OR ~s. append) 

THEN RETURN [done+words] ; 
np ^ L00PH0LE[1eft-words, CARDINAL]/PageSize; 
IF left-words # THEN 

words ^ Transf erPages[s , a+words ,np ,d ,FALSE]*PageSize + words; 
a ♦- a+words; done ^ done+words; 
ENDLOOP; 
RETURN[done] 
END; 

-- Transfers np pages (or fewer if the file runs out while reading/updating), 

-- starting at address a and the current page of the file (the one in 

-- the buffer). It leaves the next page in the buffer, with the stream 

-- set up at the first character. Note that if writing, the next page 

-- is read, not written; if the file is extended, the buffer is cleared. 

-- Returns the number of pages transferred, not counting the next one 

-- that was read into the buffer. It's only legal to call TransferPages 

-- when the buffer is full or empty; use TransferBlock otherwise. 

-- Some special uses: 

a«0 All transfers are into buffer (useful for positioning). 
np»0 The current page is transfered (useful for Cleanup), 
np--l Backup one page (useful for positioning). 

-- The last argument i^ for very special uses (described below), do 
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-- not supply it unless you know what you are doingi If special is 

-- true, the following funny things happen, depending on direction: 

direction"in: action is made DoNothing (np should be one) 

Used by Cleanup to skip the current page and read next one. 
direction-out: lastAction is replaced by WriteD, and last- 
Bytes is replaced by the numChars from the stream (np should 
be zero). Used by Cleanup to Flush with new buffer length, 

TransferPages: PROCEDURE [ 

s:DiskHandle. a:POINTER. np:INTEGER, d:direction. special :BOOLEAN] 

RETURNS [PageCount] - 

BEGIN OPEN DiskDefs; 

backup: BOOLEAN; 

arg: DiskRequest; 

i, fp, Ip: PageNumber; 

dobuffer: BOOLEAN <- FALSE; 

DAs: POINTER TO ARRAY [0..0) OF vDA; 

CAs: POINTER TO ARRAY [0..0) OF POINTER; 

caa: ARRAY [0..4) OF POINTER; 

daa: ARRAY [0..4) OF vDA; 

f: POINTER TO FP ^ 0s. file. fp; 

-- flush the buffer if the transfer won't 

IF d-in THEN 

IF s. dirty THEN Cleanup[s,TRUE] 

ELSE NULL; -- should mark written 
-- include the buffer if the transfer doesn't 
IF a j^ NIL AND Pos[s] » CharsPerPage THEN 

BEGIN 

-- the stream is at [page n, byte 0], but the 

-- buffer is at [page n-1, byte CharsPerPage]; 

-- transfer the buffer, too, even if not dirty. 

dobuffer <- TRUE; np <- np+1; 

a ^ a-PageSize; -- fixed below 

END; 
fp ♦- s.page; PositionByte[s,0,d«in] ; 
IF backup *- (np»-l) THEN 

BEGIN fp ♦- fp-1; np <- END; 
Ip ♦- fp+np; 
CAs <- 

(IF np <- 1 THEN @caa ELSE SystemDef s.Al locateHeapNode[np+3])-(f p-1) ; 
DAs ♦- 

(IF np <= 1 THEN 6daa ELSE SystemDef s .Al locateHeapNode[np+3])-(f p-1) ; 
FOR i IN Cfp..lp] DO 

CAs[i] ♦- 

IF a«NIL THEN s. buff er. word 
ELSE a+(i-fp)*PageSize; 

DAs[i] <r fillinDA; 

ENDLOOP; 
DAs[fp-l] ♦- DAs[lp + l] <- fillinDA; 

CAs[lp] *- s. buffer. word; IF dobuffer THEN CAs[fp] +- s. buffer, word; 
InlineDefs.COPY [ 

from:0s.das,to:0DAs[IF backup THEN fp ELSE fp-l], 

nwords:IF backup THEN LENGTH[s . das]-l ELSE LENGTH[s .das]] ; 
arg <- DiskRequest [@CAs[0] .@DAs[0] ,fp, lp,f, FALSE, 

WriteD.ReadD, FALSE, update[BFSDefs.GetNextDA]]; 
IF d«in OR (d«out AND -special AND -s. append) THEN 

BEGIN 

IF d = in THEN arg. action <- ReadD; 

IF special THEN arg. action ♦- DoNothing; 

[i.s.char] ^ BFSDefs.ActOnPages[LOOPHOLE[@arg]]; 

IF ij^lp AND s.char>0 AND CAs[i]j^s .buff er .word THEN 

Inl ineDef s. COP Y[ from: CAs[i] . to: s. buffer .word.nwords :PageSize]; 

END 
ELSE 

BEGIN 

arg.lastBytes ^ IF special THEN s.char ELSE 0; 

arg. lastAction ♦- IF special THEN WriteD ELSE ReadO; 

[i.s.char] ♦- BFSDef s.WritePages[LOOPHOLE[0arg]]; 

END; 
s.page ♦- i ; 

IF s.char»0 THEN MiscDefs .Zero[s .buff er .word .PageSize]; 
InlineDefs.COPY [ 

from:©OAs[i-l],to:§s.das.nwords:LENGTH[s.das]]; 
IF s.das[next]»eofDA THEN 

BEGIN OPEN s; 

fa: FA ^ FA[das[current], page, char]; 
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SegmentDefs.Updat8Fi1eLength[f ile.Qfa]; 

END; 
IF np > 1 THEN SystemDef s . FreeHeapNocle[CAs+f p-1]; 
IF np > 1 THEN SystemDef s . FreeHeapNode[DAs+f p-1] ; 
Setup[s,0,s.char]; 

SetEnd[s,s, indexes. size]; s, dirty ^ FALSE; 
RETURN[i-fp-(IF dobuffer THEN 1 ELSE 0)] 
END; 

PositionByte: PROCEDURE [s:DiskHandl8, b:CARDINAL. reading: BOOLEAN] - 
BEGIN OPEN s; 
pos: CARDINAL; 
IF das[next]-eofDA THEN 
BEGIN 

IF (pos ♦- Pos[s]) > char 
AND append AND dirty 

THEN char ♦- pos; 
IF b > char THEN 

IF -append OR reading THEN b *- char 
ELSE BEGIN char *- b; dirty ^ TRUE END; 
END; 
Setup[s,b.char]; 

SetEnd[s,s. indexes. size AND char#CharsPerPage]; 
RETURN 
END; 

FAST STREAMS 

-- the counts and positions should be optimized for 

-- the instruction set (as in the bcpl implementation). 

Setup: PROCEDURE [s :DiskHand1e. pos.end:CARDINAL] - 
BEGIN OPEN InlineDefs; 
mask: WORD » -s.unit; 
shift: INTEGER « s.unit-1; 
-- both pos and end are rounded 

s.size <r BITSHIFT[BITAND[end+LOOPH0LE[shift, CARDINAL] .mask] , -shift] ; 
s. index ^ BITSHIFT[BITAND[pos+LOOPHOLE[shif t, CARDINAL] .mask] .-shift]; 
RETURN 
END; 

Pos: PROCEDURE [s :DiskHand1e] RETURNS [CARDINAL] - 
BEGIN 

RETURN [In! ineDefs.BITSHIFT[s. index, s.unit-1]] 
END; 

SetEnd: PROCEDURE [s:DiskHand1e. b:BOOLEAN] ■ 
BEGIN 

g: PROCEDURE [StreamHandle] RETURNS [UNSPECIFIED]; 
p: PROCEDURE [StreamHandle . UNSPECIFIED]; 
IF s.eof # b THEN 

BEGIN s.eof ^ b; 

g *- s.get; s.get ^ s.savedGet; s.savedGet ^ g; 

p <- s.put; s.put ♦- s.savedPut; s.savedPut *- p; 

END; 
RETURN 
END; 

ReadByte: PROCEDURE [stream:StreamHandle] RETURNS [item:UNSPECIFIED] » 
BEGIN 

WITH s: stream SELECT FROM 
Disk -> 
BEGIN 
IF s. index » s.size THEN 

BEGIN s.getOverflow[@s]; RETURN[s .get[0s]] ; END; 
item ^ s . buffer .byte[s . index]; 
s . index ♦- s . index + 1; 
END; 
ENDCASE -> 

BEGIN SIGNAL StreamError[@s .StreamType] ; item ^ 0; END; 
RETURN 
END; 

ReadWord: PROCEDURE [streamtStreamHandle] RETURNS [item:UNSPECIFIED] - 
BEGIN 
WITH s: stream SELECT FROM 
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Disk -> 
BEGIN 
IF s, index - s.size THEN 

BEGIN s.getOverf1ow[@s]; RETURN[s.get[0s3]; END; 
item ^ s. buffer. word[s. index]; 
s. index ^ s. index + 1; 
END; 
ENDCASE -> 

BEGIN SIGNAL StreamError[0s .StreamType] ; item ^ 0; END; 
RETURN 
END; 

WriteByte: PROCEDURE [stream:StreamHand1e, item:UNSPECIFIED] • 
BEGIN 

WITH s:stream SELECT FROM 
Disk ■> 
BEGIN 
IF s. index ■ s.size THEN 

BEGIN s.put0verf1ow[6s]; s.putC@s, item] ; RETURN; END; 
s. buffer. byte[s. index] ♦■ item; 
s. index ♦- s. index + 1; 
s. dirty ♦- TRUE; 
END; 
ENDCASE ■> SIGNAL StreamError[@s .StreamType]; 
RETURN 
END; 

WriteWord: PROCEDURE [stream:StreamHand1e, itemtUNSPECIFIED] « 
BEGIN 

WITH s:stream SELECT FROM 
Disk -> 
BEGIN 
IF s. index - s.size THEN 

BEGIN s.putOverf1ow[@s]; s . put[0s , item]; RETURN; END; 
s.buffer.word[s. index] ^ item; 
s. index ♦- s. index + 1; 
s. dirty ^ TRUE; 
END; 
ENDCASE «> SIGNAL StreamError[0s .StreamType]; 
RETURN 
END; 

EndOf: PROCEDURE [streamrStreamHandle] RETURNS [BOOLEAN] - 
BEGIN 

WITH s:stream SELECT FROM 
Disk "> 
BEGIN 

IF s.eof THEN RETURN[TRUE] ; 
IF s. indexes. size THEN RETURN[FALSE] ; 
s.get0verf1ow[6s]; RETURN[s .endof [@s]]; 
END; 
ENDCASE => SIGNAL StreamError[6s .StreamType] ; 
RETURN[FALSE] 
END; 

END. 



